Word Play Farm/Word Play Farm.iso/pc/movies/rwrdfinl.dxr/00143.ls

Text File | 1996-07-26 | 258 b | 14 lines

on mouseUp
  global lastName
  set f to value(lastName) + 1
  if f = 7 then
    set f to 1
  end if
  set w to string(f)
  set fld to lastName & "Fld"
  repeat with t = 2 to 7
    put the castNum of sprite t into line t of field fld
  end repeat
  go(w)
end